New Star Software Collection/NSS_Collection.iso/3-004 ms visual basic pro 30/4.imz/4.IMA/MDINPAD.FR_/MDINPAD.bin

Text File | 1993-04-28 | 4KB | 161 lines

VERSION 2.00
Begin MDIForm frmMDI
   Caption         =   "Address Database"
   ClientHeight    =   5160
   ClientLeft      =   870
   ClientTop       =   1695
   ClientWidth     =   5715
   Height          =   5850
   Left            =   810
   LinkTopic       =   "MDIForm1"
   Top             =   1065
   Width           =   5835
   Begin PictureBox Picture1
      Align           =   2  'Align Bottom
      Height          =   495
      Left            =   0
      ScaleHeight     =   465
      ScaleWidth      =   5685
      TabIndex        =   1
      Top             =   4665
      Width           =   5715
      Begin CommandButton Command2
         Caption         =   " >>"
         Height          =   360
         Left            =   2910
         TabIndex        =   5
         Top             =   75
         Width           =   855
      End
      Begin CommandButton Command1
         Caption         =   "<<"
         Height          =   360
         Left            =   1935
         TabIndex        =   4
         Top             =   75
         Width           =   825
      End
      Begin TextBox Text2
         Height          =   285
         Left            =   3870
         TabIndex        =   3
         Text            =   "Total Records : 3"
         Top             =   120
         Width           =   1725
      End
      Begin TextBox Text1
         Height          =   285
         Left            =   120
         TabIndex        =   2
         Text            =   "Current Record : 1"
         Top             =   120
         Width           =   1695
      End
   End
   Begin PictureBox picToolbar
      Align           =   1  'Align Top
      BackColor       =   &H8000000F&
      Height          =   435
      Left            =   0
      ScaleHeight     =   405
      ScaleWidth      =   5685
      TabIndex        =   0
      Top             =   0
      Width           =   5715
      Begin Image imgFileOpenButton
         Height          =   330
         Left            =   330
         Picture         =   MDINPAD.FRX:0000
         Top             =   45
         Width           =   360
      End
      Begin Image imgFileNewButton
         Height          =   330
         Left            =   45
         Picture         =   MDINPAD.FRX:0182
         Top             =   45
         Width           =   360
      End
   End
   Begin Menu mnuFile
      Caption         =   "&File"
      Begin Menu mnuFNew
         Caption         =   "&New"
      End
      Begin Menu mnuFOpen
         Caption         =   "&Open"
      End
      Begin Menu mnuDash
         Caption         =   "-"
      End
      Begin Menu mnuFExit
         Caption         =   "E&xit"
      End
   End
   Begin Menu mnuWindow
      Caption         =   "&Window"
      Begin Menu mnuWindowTile
         Caption         =   "&Tile"
      End
      Begin Menu mnuWindowCascade
         Caption         =   "&Cascade"
      End
   End
End


Sub imgCopyButton_Click ()

End Sub

Sub imgCutButton_Click ()

End Sub

Sub imgPasteButton_Click ()

End Sub

Sub MDIForm_Load ()
    ReDim NewDoc(2) As New Form2
    Height = Screen.Height - (1 / 6 * Screen.Height)
    Width = Screen.Width - (1 / 2.5 * Screen.Width)
    Left = Screen.Width / 3 - Width / 2
    Top = Screen.Height / 2 - Height / 2

    For i = 0 To 2
        NewDoc(i).Show
    Next i

    frmMdi.Arrange 0

    NewDoc(0).Caption = "Andrew Fuller"
    NewDoc(0).txtName = "AndrewFuller"
    NewDoc(1).Caption = "Michael Suyama"
    NewDoc(1).txtName = "Michael Suyama"
    NewDoc(2).Caption = "Nancy Davolio"
    NewDoc(2).txtName = "Nancy Davolio"



End Sub

Sub mnuFExit_Click ()
    End
End Sub

Sub mnuFOpen_Click ()
filename$ = "Addrss.txt"
Open filename$ For Input As #1

End Sub

Sub mnuOptions_Click ()

End Sub

Sub mnuOToolbar_Click ()

End Sub